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ABOUT THIS 
BOOK 


This book will show you, by example, 
how to write arcade style games for 
your Apple computer using the 
Applesoft BASIC language. 

Computer Fundamentals 

Even if you don't already know 
BASIC, this book wili give you all you 
need to know to create your very own 
games. First it reviews the Apple 
computer fundamentals: how to start 
up the computer, load in diskettes, 
and run and save your programs. 

Shapes, Sound And Color 

Then "Apple Graphics Games" will 
tell you how to draw shapes on the 
screen, how to make them move and 
how to add color and sound to your 
programs. Games paddles and 
joysticks can make the games you 
write even more realistic and exciting. 
You'll find out how to use them too. 

Programming 

You will learn many game 
programming techniques as you type 
in the game called "/^pleflight" that is 
developed in this book. 

To use this book you will need an 
Apple microcomputer with 48K of 
memory, a disk drive and a display 
screen. 

The glossary at the back will give you 
the meaning of some of the more 
common computer terms. 


Bug Out!! 

Debugging Your Program 

No one is a perfect typist. Chances 
are good that you'll make at least one 
mistake when entering the program 
lines. You'll discover this (and any other 
bugs) when you enter RUN and 
nothing happens. When this occurs 
you should see an "error message" on 
the screen - or you may hove to type 
TEXT first, and then the error message 
will be displayed. For example: 

? SYNTAX ERROR 4125 

This means the computer cannot 
understand what line 4125 is telling it 
to do. To check this out you type: 

UST4125 

and line 4125 wili appear on the 
screen. Now check what you have with 
the correct iine in the book. If you have 
made a mistake, simply re-type the 
line (correctly) and press RETURN. Then 
save Appleflight again and run the 
program. 

You can list your whole program at 
any time by typing: 

LIST (RETURN) 

The screen scrolls quickly so use CTRL 
and S to stop it (and start it again). You 
can check your entire program line by 
line this way. 

**Be sure you type LINE NUMBERS 
correctly, otherwise it will be that 
much harder to find a bug. 




***Be especioliy careful that you don’t 
confuse the CAPITAL LETTER I and the 
NUMBER 1 (one) while typing! 
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the red light on the front of the disk drive goes 
out. 

Remember, you hove to turn on your Tv or 
display monitor too. 

Running Programs 

After you hove txx»ted the computer using 
the System Master diskette, type the following 
lines. Remember after you finish typing each 
line press the RETURN key to move to the next 
line. 


The command "NEW" tells the computer 
that we wish to start a new program and to 
erase any old program still in the computer's 
memory. 

This example program prints "LET'S WRITE 
GRAPHICS GAMES 1 1 1 ! I" all the way from the 
top to the bottom of your screen. This 
programmed repetition is called a "loop." The 
actual program is the four lines which b^in 
with numbers. Program lines always begin with 


HOW TO USE 
THE APPLE 


This is a very quick review of how to turn 
on the Apple, and how to save 
and run your programs. The 
Applesoft Tutorial and the 
Basic Programming Reference 
Manuals that came with your 
computer contain more details 
if you need them. 


Starting Up 

On most Apple microcomputers you must 
insert a diskette called "System Master" into 
the disk drive before you can turn on the 
machine. To do this, open the flap on the front 
of the disk drive labelled "Drive 1". (If you only 
have one disk drive, that's the one to usel) 
Gently insert the disk with the label facing up. 
Close the flap and you are ready to "boot" or 
turn on the computer. 

To turn on the computer use the switch at 
the back of the computer on the left-hand 
side. The computer is on when the button on 
the keyboard labelled "POWER" is lit up. On 
some older computers, turning on the 
computer isn't enough to boot the system. If 
you turn on the computer and the disk drive 
doesn't begin to whirr, then type this: 

PR#6 

and press the RETURN key. 

The disk drive will begin to whirr (it's reading 
information from the disk), and it is done when 


NEW 

10 FOR l=1 TO 24 

20 PRINT "LET'S WRITE GRAPHICS GAMESI 1 1 1 1" 
30 NEXT I 
40 END 
RUN 
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a number. You can look at the program you 
have in memory at any time by typing; 

LIST 

Of course, the command "RUN" is the signal 
to the computer to go ahead and do what 
the program instructions tell it to do. 



The disk drive will turn for a long time. When the 
prompt ( j ) appears, type: 

CATALOG 

Now you have a blank diskette entitled 
"Games Disk" for storing the programs from this 
book. You can use the "CATALOG" command 
at any time to see what programs hove been 
stored on a disk. 

To save a program you must give it a name. 
Let's call the program on Page 6, "APPLE." To 
save the program, type: 

SAVE APPLE 

When the disk drive has finished running and 
the flashing prompt is back on the screen, 
type; 

CATALOG 

again and you will see that "APPLE" is now 
listed on the disk. 

To show how to retrieve a program from a 
diskette we wiil clear memory by typing: 

NEW 



Saving Programs 

It would be a good idea for you to get a 
blank diskette to store the programs from this 
book. Before a blank diskette can be used it 
must be "initialized." (Make sure the disk is 
blank or that the programs on it are no longer 
needed. The INIT command will erase the 
whole disk.) When you are ready to initialize a 
new diskette, take out the System Master and 
put the new disk into the disk drive^Now type: 








Now if you type: 

LIST 

there is no program in memory. Type this: 
LOAD APPLE 

When the prompt appears, type: 

LIST 

and you will see that you did get the program 
from the disk. Another way to retrieve a 
program is to give the command to load and 
run the program. 

Type in this: 

NEW 

RUN APPIj, 

tTmelne ptbgram "APPLE" was both 
loaded into lintmory and 
RUN in one CHttmand. 
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Type this: 

NEW 
10 GR 

20 COLOR=3 
30 PLOT 20,20 
40 END 
RUN 


GRAPHICS WORKS 


Type in this program; 

NEW 
10 HOME 
20VTAB10 

30 INPUT'TYPE YOUR NAME:";NAME$ 
40 PRINT:PRINT 

50 PRINT'HELLO " NAMES;"!!!!" 

60 END 
RUN 


a pixel 


If you look closely at the screen, you will 
notice that the letters are made up of little 
dots. These are called pixels. When the dots are 
used to make letters on the screen the 
computer is in something called "text mode." 
The same pixels can be used to make up 
shapes and pictures, but rx>t in text mode. To 
draw pictures the computer must first be in a 
"graphics mode" and then we have to give it 
a special series of drawing commands. 

You can draw pictures using blocks of pixels 
or individual pixels. For blocks you must first put 
the computer in "low resolution graphics 
mode." Individual pixels are used with the 
computer in "high resolution graphics 
mode." Let's talk 
about "low res" 
graphics first and 
then move on to 
"high res." 

Type in the next 
program: 


This shows you one low res block of 
pixels. In low resolution graphics the 
screen is divided into 40 blocks across 
and 40 blocks down, which leaves 4 
lines at the bottom of the screen for 
letters. PLOT 20,20 tells the computer to 
light up the block located at a point 
20 blocks across and 20 blocks down. 
You can make pictures by turning on 
different groups of blocks in different 
locations. Try changing line 30 to light 
up different blocks, but don't make the 
numbers bigger than 40! 


To get back into text mode to type in 
another program or to change the old 
one you simply type: 
rtEXTi 
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Let's do a program similar to the iast one, 
except that this time we'li teli the computer to 
go into high res mode. Type this: 


We can use the HPLOT command to make a 
series of lines into shapes. Type in this program 
and you will see one of the shapes used in our 
game "Appleflight." 



NEW 

10HGR 

20 HCOLOR=3 
30 HPLOT 100,100 
40 END 
RUN 


NEW 




10HGR 




20 HPLOT 

100,100 

TO 

105,100 

30 HPLOT 

105,100 

TO 

110,105 

40 HPLOT 

110,105 

TO 

120,105 

50 HPLOT 

113,104 

TO 

122,104 

60 END 




RUN 





This time oniy one pixei iights up on the 
screen. In high res the display screen is divided 
into 280 units across and 160 down. 

You can use the "HPLOT" command to draw 
a line made up of many pixels. Type this: 

: 30 HPLOT 0,0 TO 279,159i . 

; .Vi. — . ... -V There are many things you can do in the 

Run the program rx>w. We hove now drawn a different graphics modes that are avaiiable on 
iine of pixels from the top left comer of the the computer. The game "Appleflight," 

screen to the bottom right comer. developed in this book, is done in high 

resolution graphics; but rather than explain all 
the features of this mode now, iet's get on with 
the game and iearn the details as we go 
along. 
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SHAPE TABLES 



The Apple allows you to draw and store 
many of the different kinds of shapes you may 
use in your games program. The computer 
simply files them away in a shape bank or 
"shape table." You must assign each shape a 
number, then when you want one of your 
shap>es to be drawn any place on the screen, 
you just tell the computer to put shap>e 
number such and such at spot such and such. 

Unfortunately, the way to draw or define 
shapes for use in a table is different from 
drawing shapes using the HPLOT method that 
we already know. Using this section of the book 
will make the creation of a shape table easy. 
Shape table commands can only be used 
when the computer is in high resolution 
graphics mode. 

OK, you've drawn a shape on paper and 
you want to put it into a shape table. Here's 
what you do: First, break it up into vectors; short 
lines which point up, down, left or right. We tell 
the computer these vectors and it follows them 
like a map. To make a square 2 pixels across 
and 2 pixels down, you would give the 
computer these instructions: 

plot right,plot rightplot down,plot down,plot 
left.plot left,plot up.plot up 



Now suppose you want to have a shape 
with a hole in it on the screen. You will have to 
move from one side of the hole to the other to 
draw both halves of the shape. However, you 
must tell the computer not to display the 
connecting lines, or put arx5ther way, you tell 
the computer to draw the connecting lines 
invisibly. To do this you must tell the computer 
to MOVE without plotting. These are the type of 
commands you use when explaining to the 
computer how to draw your shap>e. 


PLOT UP 


MOVE UP 


DOWN 

LEF 

RIGHT 


DOWN 

LER 

RIGHT 


T 


See if you can figure out which directions 
you would have to give to the computer so it 
can draw this shape: 


You can put up to 255 shapes into each 
shape table. When you want a particular 
shape, you simply tell the computer the name 
of the shape table it is in and the number of 
the shape you want. Now you can hove your 
shape any time you want it and any place you 
want it with a single command. For example: 
DRAW 1 AT 100,150 draws the first shape in the 
table starting at the point which is 100 pixels 
across and 150 pixels down the screen. If you 
need to draw one shape many times at 
different places on the screen, then shape 
tables are much easier to use than lots of 
HPLOT commands. 

There are many things you can do to shapes, 
like change their size and color, but we'll look 
at those things a little later. 

The long program on the next few pages is 
used to create a shape table. You'll have to 
type in the program very carefuily. Then run the 
program and you will find that it asks you these 
questions: 
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1 . Is this a new shap>e table? Y-Yes N-No: 
Answer "Y" (plus RETURN) for yes if you are 
starting a new shape table. If you have 
already used this program to start a shape 


table but still hove some shap>es to add to 
it, load those shapes in from your diskette 
by answering "N" (plus RETURN). 


2. MOVE:U/D/L/R?E<END>?B<ERASE>?P<PLOT 
ON/OFF> 

Now your drawing screen is in front of you 
and you can make your shape by typing U 
for up, D for down, L for left, and R for right. 

B will erase the shape one dot at a time 
from the end to the beginning of the 
shape. P turns the plot off when you want 
to move without drawing. Striking P again 
will turn the plot function back on. When 
your shape is finished, type E to say so and 
continue. Notice how the program keeps 
track of the number of vectors you use. 


There is one limitation to "move without 
plotting" commands. If you enter three or 
more "up" moves with the plot turned off, 
there is a good chance that the shape will 
end right there, even if you keep adding 
vectors. The Apple has this peculiar way of 
recording vectors, and we can't do 
anything about it so we just have to avoid 
using too many "up without plotting" 
moves. 


3. Any more shapes? Y-YES N-NO: 

The shape you just finished has been 
stored. If you answer "Y", you are back at 


the step 2 and you can continue with 
another shape. "N" here means you stop 
here and you go to step 4. 


4. Save this table? Y-YES N-NO: 

Once you have chosen to stop drawing 
you must teli the computer you want to 
save the shap>es on a disk. If you type "N" 
for no to this question, the program will end 
and all your hard work will be lost. Use "N" if 
you don't want to keep the shapes you 
have just drown. If you type "Y" for yes you 
will see "ENTER SHAPE TABLE NAME:" 
"SHUTTLESHAPES" is the name we have 
chosen for the Appleflight game. The 
computer will save the shapes onto the 
disk. BE SURE TO HAVE A DISK WITHOUT A 
WRITE PROTECT TAB IN THE DISK DRIVE! 


This program lets you work on up to 5 
shapes (in order 1 through 5) to go into one 
shape table. You can buy other programs 
which allow you to work on up to 255 
shapes in any order you like. They may also 
allow you to merge shapes from different 
shape tables into a new table. But for your 
first experiments with shapes, use this 
program to enter the shapes we need for 
the Appleflight game. The draw 
commands are listed here. 


SHAPE #1 

SHAPE #2 

SHAPE #3 

SHAPE #4 

SHAPE #5 

(the shuttle): 

(the shuttle 

(the base) 

(the 

(the turrets): 

LLLULDLULDL 

rotated): 

URURURURUR 

explosion) 

RRRRRRRUUU 

ULDLURLLDLL 

LULULULULUL 

URURRRRRRR 

LULULUURRD 

UULLDDDLLL 

LULULULULUL 

ULUUUUUUUU 

RRURURURUR 

RDRRUUURD 

UUULLDDDD 

LL 

ULULULULL 

URURURRDD 

RDRDRRURU 

D 



DDDDPRRRR 

RURDRDDDD 




RRRRPUUUUU 

URDRDRDRD 

RDRDRDRRR 

RRRRRDRDR 

DRDRDRDRD 

RDR 

LLLLLLLLLL 



Save these shapes on your disk with the name SHUTTLESHAPES. 
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SHAPE TABLE PROGRAM 

NEW 

100 D$ = CHR$ (4) 

110 DIM Sl%(100) ,V%(5,100) ,L%(5) 

120 BEG = 24576 

130 TEXT : HOME : VTAB 10: PRINT "IS THIS A NEW SHAPE TABLE?" 
140 PRINT : PRINT : INPUT "Y-YES N-NO: ";A$ 

150 IF A$ = "N" THEN GOSUB 5000:SH = SH + 1 ; GOTO 199 
160 IF A$ < > "Y" THEN GOTO 130 
170 NS = 5 
190 SH = 1 

199 IF SH = > 6 THEN PRINT : PRINT : PRINT "TABLE HAS FIVE 
SHAPES": FOR I = 1 TO 750: NEXT : GOTO 130 

200 HOME: VTAB 10: PRINT "TO START SHAPE# "; SH; " PRESS 

RETURN "; 

210 GET Q$ 

220 PRINT : IF ASC (Q$) < > 13 THEN GOTO 200 

230 X = 100-.Y = 100 

240 HGR : HCOLOR= 3: SCALE= 1: ROT= 0 
250 HPLOT X,Y 

260 I =0:Q = 0:PI = 4:C = 0 

270 IF I < 0 THEN 1=0 

280 IF I = 99 THEN S$ = "E": GOTO 300 

290 V = I: GOSUB 1000 

300 IF S$ = "E" THEN HOME : TEXT : VTAB 10: PRINT "SAVING 

SHAPE": GOTO 330 

310 IF S$ = "B" THEN GOSUB 3000: GOTO 270 
320 S1%(I) = S:I =1+1: GOTO 270 
330 FOR K = 0 TO I 

340 IF C = 2 AND Sl%(K) > 0 AND Sl%(K) < 4 THEN 370 
350 IF C < 2 THEN 370 
360 C = 0:Q = Q + 1 

370 V%(SH,Q) = V%(SH,Q) + S1%(K) * (8 " C) 

380 C = C + 1 
390 NEXT K 
400 L%(SH) = Q 
410 GOSUB 2000 

420 IF SH = NS THEN GOTO 460 

430 TEXT : HOME : VTAB 10: INPUT "ANY MORE SHAPES? Y-YES N- 

NO: ";A$ 

440 IF A$ = "Y" THEN SH = SH + 1: GOTO 200 
450 IF A$ < > "N" THEN GOTO 430 

460 PRINT : PRINT : INPUT "SAVE THIS TABLE? Y-YES N-NO: ";A$ 
470 IF A$ = "Y" THEN GOSUB 4000: GOTO 490 
480 IF A$ < > "N" THEN GOTO 460 

490 END 

1000 VTAB 21: PRINT "VECTOR ";V + 1; 

1010 PRINT "MOVE: U/D/L/R?E<END>?B<ERASE>?P<PLOT ON/OFF>: "; 
:GET S$ 


1020 

PRINT 






1030 

IF 

s$ = "U" 

THEN 

S 

= 0:Y = Y 

- 

1 

1040 

IF 

S$ = "R" 

THEN 

S 

= 1:X = X 

+ 

1 

1050 

IF 

S$ = "D" 

THEN 

S 

= 2:Y = Y 

+ 

1 

1060 

IF 

S$ = "L" 

THEN 

S 

= 3:X = X 

- 

1 
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1070 

1080 

1090 

1100 

1110 

1120 

1130 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

4000 

4010 

4060 

4070 

5000 

5010 

5020 

5030 

5035 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

Save 


IF S$ = "E" OR S$ = "B" THEN RETURN 

IF S$ < > "U" AND S$ < > "D" AND S$ < > "L" AND S$ <> 

"R" AND S$ < > "P" THEN GOTO 1000 

IF S$ = "P" AND PI = 4 THEN PI = 0:GOTO 1000 

IF S$ = "P" AND PI = 0 THEN PI = 4;GOTO 1000 

S = S + PI 

IF PI = 0 THEN RETURN 

HPLOT X,Y: RETURN 

POKE BEG, NS 

POKE BEG + 1,SH 

OFF(l) = NS * 2 + 2 

IF SH = 1 THEN GOTO 2050 

OFF(SH) = OFF(SH - 1) + L%(SH - 1) + 2 

MEM = BEG + 2 + 2 * (SH - 1) 

POKE MEM,OFF(SH) - 256 * INT (OFF(SH) / 256) 

POKE MEM + 1, INT (OFF(SH) / 256) 

MEM = BEG + OFF(SH) 

FOR J = 0 TO L%(SH) 

POKE MEM,V%(SH,J) 

MEM = MEM + 1 
NEXT J 
POKE MEM,0 
RETURN 

IF I < = 0 THEN RETURN 
1 = 1-1 
HCOLOR= 0 
HPLOT X,Y 

IF S1%(I) = 4 OR S1%(I) = 0 THEN Y = Y + 1 

IF S1%(I) = 5 OR S1%(I) = 1 THEN X = X - 1 

IF S1%(I) = 6 OR S1%(I) = 2 THEN Y = Y - 1 

IF S1%(I) = 7 OR S1%(I) = 3 THEN X = X + 1 

HCOLOR= 3 
RETURN 

TEXT : HOME : VTAB 10: INPUT "GIVE SHAPE TABLE A NAME: " 
;NAME$ 

LGTH = OFF(SH) + L%(SH) + 3 

PRINT D$"BSAVE" ;NAME$; " , A$6000 , L" ; LGTH 

RETURN 

HOME : VTAB 10: INPUT "ENTER TABLE NAME: ";NAME$ 

PRINT D$"BLOAD";NAME$ 

NS = PEEK (BEG) 

SH = PEEK (BEG + 1) 

IF SH > = 5 THEN RETURN 
L%(SH) = 0 

OFF(SH) = PEEK (BEG + 2 + 2 * (SH - 1) ) + 256 * PEEK (BEG 
+ 2 + 2 * (SH - 1) + 1) 

MEM = BEG + OFF(SH) 

A = PEEK (MEM): IF A < >0 THEN L%(SH) = L%(SH) + 1:MEM= 

MEM + 1: GOTO 5070 
IF SH = 1 THEN GOTO 5130 
NUM = SH 

L%(NUM - 1) = OFF (NUM) - OFF (NUM - 1) 

IF NUM -1=1 THEN GOTO 5130 
NUM = NUM - 1: GOTO 5100 
RETURN 


the shape table program as SHAPE PROGRAM 
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PEEK AT A POKE 

look closely at the shape table program you 
just typed in. Two of the BASIC commands, 

PEEK and POKE, do more than first meets the 
eye. Strictly speaking, these commands allow 
you to look at (PEEK) and change (POKE) the 
values that are held in your computer's 
memory. These commands can be used for 
some fancy programming tricks. For example, 
in the next few pages you'll see how to put a 
music routine into memory using POKE 
commands. Other POKE commands will help 
us display graphics. The PEEK commands are 
especially useful during games when, as the 
programmer, you must find out which key is 
being pressed or which game paddle is being 
used. 

Here are the PEEKs and the POKES that will 
help you to understand the Appleflight game 
and to write your own games. Don't bother 
trying to memorize them, just peek at this page 
when you want to poke some fancy stuff into 
your program. 



POKE -16304,0 
POKE -16303,0 
POKE -16302,0 
POKE -16301,0 
POKE -16300,0 
POKE -16299,0 
POKE -16298,0 
POKE -16297,0 
PEEK (-16384) 
POKE -16368,0 
PEEK (-16336) 
POKE 230,32 
POKE 230,64 


CALLS UP GRAPHICS MODE 
CALLS UP TEXT MODE 

FULL SCREEN GRAPHICS; NO TEXT ON SCREEN 

MIXED SCREEN GRAPHICS; GRAPHICS AND TEXT 

DISPLAYS GRAPHICS PAGE 1 

DISPLAYS GRAPHICS PAGE 2 

LOW RESOLUTION GRAPHICS MODE 

HIGH RESOLUTION GRAPHICS MODE 

READS THE KEYBOARD TO SEE IF A KEY HAS BEEN PRESSED 

GETS THE KEYBOARD READY TO READ IN THE NEXT CHARACTER 

BEEPS THE SPEAKER 

DRAWS ON GRAPHICS PAGE 1 

DRAWS ON GRAPHICS PAGE 2 
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COLOR 

Type in this program being sure to copy the 
iine numbers exactly. This is the first part of the 
Appleflight game and the line numbers 
become important as we add other parts. 


NEW 

4200 D$=CHR$ (4) 

4225 PRINT D$"BLOAD SHUTTLESHAPES, 
AS6000" 

4250 POKE 232,0:POKE 233,96 
4300 HGR 

4325 POKE -16304,0:POKE -16302,0 

4350 SCALE=1;ROT=0 

4370 HCOLOR=3 

4375 DRAW 1 AT 100,100 

4400 DRAW5 AT 150,185 

5100 END 



special control character 
loads in shape table 

tells the computer where to find shapes in table 

sets up high resolution graphics mode 

full screen /hi res graphics 

shape size and rotation 

picks a color; white 

draws the shuttle 

draws the turret 


When you run the program you should see the turret and the space shuttle on the screen. 
Return to text mode and save this program by typing: 

TEXT 

SAVE APPLEFLIGHT 



Color 

If your Apple is hooked up to a color display, 
like a color television, you can draw shapes in 
different colors. Retype line 4370 of the last 
program: 

4370 HCOLOR=6 
Run the program again! 

Now the shuttle and the turret will appear in 
blue. If you do this on a display which does not 
have color, you will notice that the picture 
stays in the same color but appears to hove 
lost some pixels. This is because the single color 
screen doesn't know how to display the color 
you've asked for. From now on, if you have a 
single color display, use HCOLOR=3 to draw a 
shape and HCOLOR=0 to get the same color 
as the screen background. 

By changing the value of HCOLOR we can 
change the color of our shape. In fact, we can 
draw the shapes in any of six different colors. 


The colors are: 


HCOLOR=0 

Draws the shape in black 

=1 

green 

=2 

violet 

=3 

white 

=4 

black 

=5 

orange 

=6 


=7 

white 


Notice that either 0 or 4 will produce a black 
shape and that 3 and 7 both draw in white. 

Try running the program using all 8 color 
values. Notice that the shape disapp>ears 
totally when you use 4 or 0. Do you krx>w why? 
If you have trouble thinking of a good reason, 
imagine drawing with a black pen on a piece 
of black paper. 
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ROTATION AND SCALE 

Scale 


You can increase the size of the shuttie on the 
screen by changing the variabie SCALE. Try 
changing line 4350 to read: 


4350 SCALE=2:ROT=0 


4350 SCALE=2:ROT=16 

Run the program now. The shuttie turns a 
quarter turn. This is calied ROTation. SCALE and 
ROTotion are reiated; when SCALE=1 you can 
oniy rotate using the vaiues 0, 16, 32 or 64 to 
compiete the full circle. When SCALE=2 you 
can rotate 0, 8, 16, 24, 32, 40, 48, 56, 64 and so 
on. Try typing in different values of SCALE and 
ROTation and see what happens. 


Scale = 2 


Notice how the same shape appears to wrap 
around the screen and come out the top. 
You can try different values of scale from 0 to 
255. 


16 Scale = 1 


0 

Rotation 

Try retyping line 4350 like this: 


16 


MOVING RIGHT 
ALONG 


We now know to draw shapes on the screen 
using different coiors, rotations and scdies; but 
unless we learn how to make the shapes 
move, our games won't be very exciting. 


Load in the program from the previous page by typing; 
LOAD APPLEFLIGHT 


Now type this; 
DEL 4370,4400 


Next, 

100 

3250 

3375 

3600 

3650 

3925 

3950 

3975 

4600 

4675 

4700 

4710 

4715 

4720 

4735 

4975 


if you want the shuttle to move, add in these lines; 

GOTO 3950 jumps to main part of program 

IDX=0 looks at row 0 in table 

HCOLOR=0; DRAW 1 AT LAST% erases at last position . 
(IDX,0),LAST%(IDX,1) 


HCOLOR=3;DRAW CURSHAP AT X,Y 
LAST%(IDX,0)=X;LAST%(IDX,1 )=Y 
RETURN 

DIM LAST%(2,8) 

INC=1 

CURSHAP=1 

Y=100;IAST%(0,1)=Y 

X=20;LAST%(0,0)=X 

FOR l=X TO 250 STEP INC 

X=l 

GOSUB 3250 
NEXT! 

TEXT 


draws current shape on screen 
saves last ship location 
returns from subroutine 
space for keeping old positions 
ship speed set to one 
current shape #1 the ship 
initial Y position * 
initial X position * 
sets up loop 
assigns X value to draw 
executes routine to draw shape 
gets a new position to draw 


* These are the values for the horizontal position (X) and the vertical position (Y) on the 
screen and are called "co-ordinates." 


Don't forget to save the program again by typing; 
SAVE APPLEFLIGHT 


When you run this program the space shuttle 
moves across the screen. Changing the value 
of INC (line 3975) to 2 or 4 will make the ship 
appear to go faster. Try it! (Simply re-type the 
line - with the line number! - save Appleflight 
and run it again.) 

The first step in making the shape move is to 
draw it in one place on the screen. Then you 
erase it and redraw the same shape in a 
slightly different position. Because the shape is 
being erased and redrawn so very fast, it 
appears to be moving. This is called 
"animation" and is the technique artists use to 
make cartoons. Motion pictures are, after all, a 
series of individual pictures or frames. 

The variable LAST% is called an array or 
table. In this game, we use the array to store 
old variables. For example, in order to erase the 
ship, we draw over the LAST% position using the 
background color. Therefore, we save the old X 
in LAST% (IDX,0) and the old Y in LAST% (IDX,1). 


X and Y positions give you co-ordinates. 
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SMOOTHER SAILING 


When you have to draw a lot of shapes it will 
take the Apple a longer time to draw all the 
necessary dots. The result is a slight time lag 
between the frames, giving the motion a jerky 
appearance. Load in the game so far and 
make these changes to it: 


3250 IDX=WPAGE-1 
3275 POKE -16299-IDX.O 
3300 POKE 230,32- WPAGE 
3325 WPAGE=WPAGE+1:IF WPAGE=3 
THEN WPAGE=1 
4300 HGR2:HGR 
4375 WPAGE=1 

4675 Y=20;LAST%(0,1)=Y:LAST%(1,1)=Y 
4700 X=100:LAST%(0,0)=X:LAST%(1,0)=X 



gets page flipping index 
displays a page 
draws on a page 
get next page 


Save the new program as "APPLEFLIGHT" and 
then run it. The motion of the ship is smoother. 
At this point the change may not seem too 
dramatic; however, these lines do help to 
make the ship move smoothly, especially 
when the game gets complicated. 


, 


Page (Wpage) 

This program uses two areas of memory 
called "pages" to store the display screen. 
When you do "page flipping," you display one 
page on the screen while you draw on the one 
you can't see. Even though you are drawing 
something, the person looking at the screen 
doesn't see any changes. You then "flip" the 
pages and display the one on which you 
made the changes. 

Notice that although we draw on different 
pages we haven't added any new DRAW 
commands. We use the variables IDX and 
WPAGE and the POKE commands in line 3275 
and 3300 to keep track of and control all the 
flipping. 


The WPAGE variable keeps track of the page 
that we are working on (WorkingPAGE). 

WPAGE = 1 means that we are working on 
page 1 

WPAGE = 2 means that we are working on 
page 2 

Line 3325 flips WPAGE between these two 
values when we flip the pages. If WPAGE is 1 
then this line makes WPAGE 2 and if WPAGE is 
already 2 then this line makes WPAGE 1 . Can 
you see why? It first adds one to get WPAGE=3, 
then since WPAGE=3 it make it 1 . 

IDX is always set to 1 less than WPAGE. So if 
WPAGE is 1 then IDX is 0, and if WPAGE is 2 then 
IDX is 1 . Now we know enough to understand 
how the pages get flipped. The chart shows 
you what those POKES do. 


IFWPAGE=1 

POKE -16299,0 

Displays page 2 

IDX=0 

POKE 230,32 

Draws on page 1 

lfWPAGE=2 

POKE -16300,0 

Displays page 1 

IDX=1 

POKE 230,64 

Draws on page 2 
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TURNING CORNERS 

Right now the Appleflight shuttle goes in only 
one direction. Lef s take the first step in making 
it fly around the screen. Add the following lines 
to the program (if you just turned on the 
machine LOAD APPLEFLIGHT) and run it. 


3350 ROT=LAST%(IDX,3) 

3375 HCOLOR=0:DRAW LAST%(IDX,2) 
AT LAST%(IDX,0),LAST%(IDX,1) 
3550 ROT=R1 
3575 LAST%(IDX,3)=R1 
3675 LAST%(IDX,2)=CURSHAP 
3975 INC=4 

4425 LAST%(0,2)=CURSHAR 
LAST%(1,2)=CURSHAP 

4703 XQUIT = 250 

4704 K = INC 

4705 FOR J = Y TO 190 STEP INC 
4706Y = J 

4710 FOR l=X TO XQUIT STEP K 
4741 XQUIT=XQUIT+230:IF XQUIT 
>250 THEN XQUIT=20 
4745 R1 =R1 +32: IF R1 =64 THEN R1 
=0 

4747 K = -K 

4748 NEXTJ 

(Don't forget to save these changes!) 



gets old rotation value 
changes color to black 
erases shape at old x,y position 
new rotation value 
saves rotation value 
saves shape number 

initial shape numbers 

end of screen/tum around 
speed and direction across screen 
goes down the whole screen 
current y value 

gets final x depending on direction 
adjusts rotation 

reverses increment depending on direction 
gets next y value 


These changes allow the shuttle to fly back 
and forth across the screen. Notice that line 
4745 rotates the ship so it is facing the other 
way. If the ship was facing right (R1 =0) then it 
will turn to face left (R1=R1 +32=0+32=32) 
and if it was facing left (R1=32) then it will turn 
to face right (R1=R1 +32=32+32=64: when 
R1=64 the IF statement changes it to 0). 

Since R1 can change we hove to remember 
the rotation of any ship we want to erase. We 
also added code (program lines) to remember 
the number of the shape. The shape number 
and rotation of the ship last drawn on page 1 
are held in LAST%(0,2) and LAS1%(0,3). The 
shape number and rotation of this ship last 
drawn on page 2 are held in LAST%(1,2) and 
LAST%(1,3). 


The rest of the code determines at what 
position the shuttle should be drawn. We use 
the variable XQUIT to tell us at what X position 
(horizontal screen position) to stop. The end of 
the line is position 250 if you are heading right 
and position 20 if you are heading left. When 
the ship moves across the screen it's really 
moving from position 20 to position 250. To do 
this, we use a program loop (FOR I =X (20) TO 
XQUIT (250) STEP INC (4)) which draws the 
shuttle at every position between 20 and 250 
using steps of 4 (20, 24, 28, ...). Next, the shuttle 
moves down a line and goes in the other 
direction counting backwards (FOR I = X (250) 
TO XQUIT (20) STEP INC (-4)). 
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Now let's take a minute to see how the music 
program works. 


MAKING SOUNDS 

The Apple has the ability to make a whole 
variety of sounds. The simplest Is Its 
characteristic beep, which you can produce 
by hoiding down the CTRL key and the letter G 
at the same time. To see how this same beep 
can be produced from wrthin a program, type 
I this: 


NEW 

1 FOR 1=1 TO 50 
5A=PEEK(-16336) 
10 NEXT I 
15 END 
RUN 


do it fifty times 
make the beep 


When you get bored with this sound and 
want your games to have more realistic sound 
effects, you need the machine language 
program listed here: 


NEW 

LOAD AF>PLEFLIGHT 
5125 ZZ = 300 

5150 POKE ZZ,166:POKE ZZ+1,0:POKE ZZ+2,160:POKE ZZ+3,239 
51 75 POKE ZZ +4,202:POKE ZZ+5,208:POKE ZZ+6,5:POKE ZZ+7,1 73 
5200 POKE ZZ +8,48:POKE ZZ+9,192:POKE ZZ+10,166:POKE ZZ+1 1,0 
5225 POKE ZZ+12,136:POKEZZ+13,208:POKE ZZ+1 4,245: POKE ZZ+15,198 
5250 POKEZZ+16,1:POKE ZZ+17,208:POKE ZZ+18,239:POKE ZZ+19,96 
5275 RETURN 

Don't forget to save this program as APPLEFLIGHT. 


Type this: 

1 GOSUB5125 
5 NT=150 
10 DUR=50 
15 POKE 0,NT 
20 POKE 1,DUR 
25 CALL R 
30 END 


sets up music 
picks a note 
how long Is the note 


plays the note 
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NOTES 



When you run this you will hear that we hove 
just created another tone. The variable NT 
changes the note we hear (makes it higher or 
lower) and the variable DDR (DURotion) tells 
the computer how long to play it. Either 
variable can hove a value from 1 to 255. 


You can try all sorts of variations of sounds. This 
next program makes a warble or raspberry 
sound: 

5 FORX=1TO50 
10 NT=150:DUR=5 
12 POKE O.NT:POKE1,DUR 
14 NT=5:DUR=1 
26 NEXTX 
40 END 


Make these changes to the program 
and run it: 

10 DUR=5 

14 FOR NT=1 TO 255 
26 NEXT NT 


Try some variations yourself to see if you can 
come up with a good sound for the space 
shuttle and a neat explosion. There will be 
suggestions for these later in the book. 

To clean up the experiment part of this page, 
type: 

Sove»4ig||i^ilht. 
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GETTING O 


We've seen that we can make the shuttle go 
in different directions; the next big step allows 
you to take controi of the shuttle and fly It 
yourself. Type in the foliowing changes to the 
Appleflight program. When you run the 
prc^ram the shuttle will fly in the direction it is 
pointed, just like before, but see what happens 
when you press the key marked G. 


r 




DEL 4703,4748 

125 REM MAINLINE LOOP 

150 GOSUB 1850 

200 GOSUB 3250 

275 GOTO 150 

1850 REM KEYBOARD INPUT 

2075 A=PEEK (-16384) 

2100 IF A<127 THEN GOTO 2750 
2125 POKE -16368,0 
2150A$=CHR$(A-128) 

21 75 IF A$="E" THEN GOTO 4975 
2200 IF A$="G" THEN R1=R1+16: 
GOTO 2550 
2550 REM 

2575 IF R1=64 THEN R1=0 
2650 IXD%=R1/16 

2675 XINC=RM%(IXD%,0):YINC=RM% 
(IXD%,1) 

2700 CURSHAP=RM% (IXD%,2) 

2725 R1=RM%(IXD%,3) 


gets keyboard input 
draws the shuttle 


peeks the keyboard 
no key pressed 
clears keyboard scan 
figures out which key 
ends the game 
rotates one step 


full circle..R1 returns to 0 

index to get x, y, shape number, etc. 

gets X increment, y inc. 

gets current shape number 
gets new R1 


22 



ROTATION 






2750 REM COME HERE IF NO CHANGE 

3100 X=X+XINC:Y=Y+YINC 

3125 IF X>279 THEN X=0 

3150IFY>190THENY=0 

31 75 IF X<0 THEN X=279 

3200 IF Y<0 THEN Y=190 

3225 RETURN 

3950 DIM RM%(8,4),LAST%(2,8) 

4000 FOR 1=0 TO 3 
4025 FOR J=0 TO 3 
4050 READ A% 

4075 RM%(U)=A% 

4100IFJ=0 OR J=1 

THEN RM%(I,J)=A%*INC 
4125 NEXT:NEXT 
4150 DATA 1,0,1,0,0,1,1,16, 
-1,0,1,32,0,-1,1,48 

4575 XINC=RM%(0,0):YINC=RM%(0,1) 
4950 GOTO 125 
(Save first, then run.) 


gets new x, y 
checks for screen edges 


loads in rotation guide table 


initial xinc, yinc 
go to main program 




fx 










The shuttle turns 90 degrees aid files in a 
different directbn! If you have an Apple He, 
hold the G key down and watch the shuttle 
keep turning. The same thing can be done on 
the Apple II or Apple 11+ by holding the G key 
and pressing the key marked REPT (REPeaT). Try ".1 
playing with this until you have mastered the ' 
controls of the shuttle. When you want to move 
on, you can end the flight by pressing the key 
marked E. Notice that rvDW the shuttie flies as 
long as you want it to and ends when you say 


so. 


;■+ 
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HOW WE GOT 
CONTROL 



We added quite a few lines here so let's take 
a rrxDment to explain, in English, what they all 
do. First off we've added a part right at the 
start called "MAINLINE LOOP." A mainline loop 
is the central controlling part of a program 
which calls on the other parts of the program 
to do their stuff. 

Line 150 says: Go and find out if a key has 
been pressed and then figure out where to 
draw the ship. 

Line 200 soys: Do all the drawing and erasing 
so that it looks like the ship moved from the last 
position to here. 

Line 275 s^s: Go back and do it all again 
(and again and again and ...). 

There's quite a bit more to this than meets 
the eye, because all the detail is left to the 
subroutines. So let's look at the subroutines. 

The subroutine at line 1850 actually does 
three things. The first is to figure out if we wish to 
change direction. This is done by lines 2075 to 
2150. 

We "p>eek" at the keyboard line 2075 

If the value we peeked is > 127 line 2100 

That means a key has been pressed so. 

Tell keyboard we've read the value. . . line 21 75 

And figure out what the character was line 

2150 

(You have to subtract 128 and take the 
CHaRacterS of the result.) 


24 


The next thing the routine does is to change 
direction depending on what key was pressed, 
if the key pressed was E, then the game ends, 
but if it was G then we add 16 to the rotation 
to make the shape turn 90 degrees the next 
time we draw it. 

Line 2575 knows that a rotation of 64 is the 
some as a rotation of 0, and since the program 
is only concerned with rotations iess than 64, 
the rotation is set back to 0. 

Lines 2650 to 3200 determine the where, how 


and what of drawing the ship. At the start of 
the game we stored ali the information we 
needed to do this in a tabie caiied RM%. Each 
row or line in this tabie teils the taie for one 
particuiar rotation. There are 4 possibie 
rotations in the table; because the computer 
recognizes vaiues from 1-64, each iine of the 
tabie represents 64/4=16 rotations. Line 2650 
determines which of the 4 lines in the tabie to 
iook at by dividing the R1 by 16. 


Here is how the tabie was constructed: RM% 



Now it's easy to modify the program to aiiow 
the shuttie to rotate in the opposite direction. 
Just add the iines beiow save and run the 
program. Can you guess what key makes the 
shuttle turn this way? 


2275 IF A$="H" THEN R1=R1— 16; turns the other way 

GOTO 2550 

2625 IF R1=-16THEN R1=48 


XINC 

1 

0 

-1 

0 


YINC 

0 

1 

0 

-1 


CURSHAP 

1 

1 

1 

1 


The values of 0 - 3 in the first column are the result of R1/16. 


ROTATION 

0 

16 

32 

48 



Y 


Y 

Y 



X 

1 X 

/-y. 

X 

ao) 


(0,1) 

(-1,0) 
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The next step in getting the shuttle I’D move. realis- 
tically is to allow the controls to be more sensftive.2JVe'll 
change the program so that each hit of the key results 
in only a 45 degree rotation rather than the 90 degree 
rotation that the game preserTtly has. Add the 
following changes to your program and run it. Play 
with this arid see if there^j^ra^problem. 

45 ° 135 ° 



2200 IF A$="G" THEN R1 =R1 -F8:GOTO 
2550 

2275 IF A$="H" THEN R1=R1 -8:GOTO 
2550 

2625 IF R1=-8 THEN R1=56 
2650 IXD%=R1/8 
4000 FOR l=0 TO 7 

4150 DATA 1,0,1,0,1,1,18,0,1,1,16-1,1,1, 
24,-1 ,0.1 ,32,-1 ,-1 ,1 ,40,0,-11 ,48, 
1-1,1,56 





The problem with SCALE=1 is that the only allowable 
rotations are multiples of 90 degrees (90, 180, 270 
and 0). When we specified ROT=8 (or 2^, 40 or 56) 
we said we wanted a 45 degree rotation (or multiple 
of 45 which is rxjt a muttiple qf 90). Unfortunately, th.e 
Apple can't draw a shape at these rotations unless 
SCALE =2, so it does the only thing it can to cany out 
your instruction qnd draws your shape with SCALE=2. 

To get around the problem for the time being, let's 
increase the SCALE to 2 by c.hanging the following line 
and running the program. ■ . . 


4350 SCALE =2:ROT=0 


Now the shuttle stays the same size. Unfortunately, it's 
twice the size it used to be. This rheans the advantage 
of high res's being able to draw very detailed pictures 
is lost .as we will always hove to display them at 2 or 
maybe 3 or 4 times the size they were drawn. To solve • 
this problem, we'll use a trick. Instead of drawing shape 
1 (the ship's side view), when we want to rotate 45 
degrees, we'll use shape 2, which is just shape 1 
rotated 45 degrees (the ship drown at another angle). 

” i. 








When you fun this now, the shuttle flies at the 
45 degree angle at regular size all the way. 

So we car) use a number of views of the 
same shape to get around the limitations 
imposed by the SCALE and ROTate 
commands. If you had the patience, you 
couid use the same logic to create several 
more views of the shuttle to allow for finer and 
finer controi, but remember -the mor^ lines 
stored in the RM% arrqy the more memory your 
program uses up, leaving less available for your 
progrdnrxcode and other data values. Also, 
make sure that the type of .game you are . • 
building needs muitipie views: before making 
all kinds of shapes at all kinds of angles. A ' 
game like Pac Man doesn't need those 
multiple views because the man only travels ? 
up, down; right pr left; he doesn't move on 4he‘ 
diagonal. ' • • . ’ 

Another thing to notice is that vye stiil use the 
ROT command, and we use it with shapes. This 
m.eans that shape #2 is the one we use to 
rotate 135, 225 and 315 degrees, so we don't 
have to redraw versions of the shuttie for each 
of th^ rotations. ~ 


It sounds iike the hardest part of this change 
wili be keeping track of which shape is the 
current shape (CURrentSHARe^nd what 
shape to draw and erase orT^aph of the 
graphics pages. But, rernember we hove the 
tabie LAST% that saves the number of the iast 
shape drawn on each page, so this 
remembering which shape part is a snap. Add 
the code to display shape 2 if the angie is one 
of the 45 degree angies that the Apple has 
trouble with. Don't blink now because you 
might miss it. 


4350 SCALE = 1:ROT = 0 
2550 IF CURSHAP=2 THEN R1=R1 +8 
2600 IFR1=72 THEN R1=8 
4150 DATA 1,0,10,1,1,2,0,0,1.1,16,-1,1,2, 
1 6,- 1 ,0,1 ,32,-1 ,- 1 ,2,32,0,- 1,1 ,48, 
1,-12,48 




GAME 

PADDLES 

Now that you have mastered controlling the 
shuttle from the keyboard, let's try game 
paddle control. (If you don't have a set of 
game paddles, you will always be able to play 
Appleflight from the keyboard.) 

If you are not sure of how to hook the 
paddles up, it would be a good idea to ask 
someone who does know or to follow the 
manual. On most Apples, connecting the 
game paddles requires that you lift the lid of 
the computer and plug the paddles into the 
socket inside. Remember, SAVE your programs 
BEFORE turning the computer OFF and ALWAYS 
turn the computer OFF to plug in the game 
paddles. 

Type the following lines of code to give your 
game the added feature of using game 
paddles. If you don't have game paddles, you 
won't be able to select the games paddles 
option, but type in this bit of code anyway. 





1850 IF C$="K" THEN GOTO 2075 
1875 IF C$<>"F^' THEN GOTO 2075 
1900 A=PEEK(- 16384) 

1925 IF A>127 THEN GOTO 2750 
2000 B=PDL(0) 

2025R1=B/32*8 
2050 GOTO 2650 
4275 INPUT "CONTROL? P-PADDLES K-KEYBOARD: ";C$ 


selects keyboard 
if not paddle defaults keyboard 
sees if key has been pressed 
keyboard overrides paddles 
reads the game paddle 
calculates ship rotation 


Save this program again as Appleflight 
try running it. If you don't hove game paddles, 
run the program to make sure you haven't 
made any typing errors. If you do have game 
paddles connected to the computer, then use 
the one marked "O" to control the rotation of 
the ship. 

Some joysticks will also work with this 
program. But because the ship rotates in only 
two directions, only two of the joystick's four 
px)sitions are used in this game. There are no 
changes to the code to have your joystick 
work in this way. 
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LOOKIIMG 

BACK 


Let's review all that we hove done so far. We 
started off by simply drawing a point on the 
screen. Then step by step we expanded the 
program to draw a shape on the screen, our 
space shuttle. After making the shuttle move, 
we added control from the keyboard and 
game paddles. We also learned about 
making sounds arxJ shape tables. How did we 
get through all that in so few pages? The 
secret is that we broke the problem into many 
small steps. Each step was easy and didn't 
require too many lines of code. Computer 
people call this "structured programming." 

As you read the rest of the brok, keep in 
mind that all games can be broken down Into 
small, easy-to-manage pieces, making game 
writing much easier. 


•MHM in pM^^nis tn 
"pseudoofi^ prone 
code." ^Vl 
Here's anWM^ 
small BASl’CnMram 
column wlthlMB har 
\Arhat thg BA3C^mi 
the BASIC co«™ar 
Chances are tmmoi 
pseudocodi^ Is njilg 
BASIC^. This is b90^m 
more i^sily tha n jjSa 
program in BASI^PB 
As^oti rtiet(i|ii|the|i 
iGux/sm<j>ll«6r steps,™ 
commands becd|ni| 
describe whqt yound 
English, ydu v»/on't be 
“HRe prqprotn in a cor 


Another good programming habit is to write 
out wbgt you w ant to do in English before you 
[This English program is called 
pronounced "sue dough 

pie of pseudocode for a 
ram. Cover the pseudocode 
hand. Can you understand 
mmands mean? Now cover 
and read the pseudocode. 

' ou understand what the 
to explain easier than the 
you understand English 
C. Before writing a 
should write it in English, 
jsh version into smaller 
ansfer to BASIC 
sier. Unless you can 
itVj program to do in 
to describe or write 
r language like 


3. 

4. 

5. 


PSEUDOCODE 

EXAMINE KEYBOARD TO SEE iF 
ANY KEY WAS PRESSED 
IF A KEY WASN7 PRESSED THEN 
GO BACK TO 1 AND WAIT FOR IT 
TELL THE KEYBOARD THAT YOU 
HAVE READ THE SELECTED KEY 
FIGURE OUT WHICH KEY WAS PRESSED 
END THE PROGRAM 


BASIC 

10 A=PEEK (-16384) 

20IFA<127THENGOTO10 

30 POKE -16368,0 

40A$=CHR$(A-128) 

50 END 
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THE GAME so FAR 


LOOP 


100 GOTO 3950 
125 REM MAINLINE 
150 GOSUB 1850 
200 GOSUBC.3250 

275 GOTO 150 i 

1850 IF C$ = "K" THEN GOTO 2075 
1875 IF C$ < > "P” THEN GOTO 2075. 
1900 A = PEEK (-16384) b 

1925 IF A > 127 THEN GOTO 
2000 B = PDL (0) 

2025 R1 = B / 32 * 8 
2050 GOTO 2650 
2075 A = PEEK (-16384) 

2100 IF^-A < 127 THEN GOTO 


2750 


2125 POKE ^6368,0 
2150 A$ = CHR$ 


2750 


2175 

IF 

A$ 

= 

•ftig 

" THEN 

GOTO 4975 

2200 

IF 

A$ 

= 

"G 

" THEN 

R1 

= R1 

+ 8 

2275 

IF 

A$ 

= 

"H 

•' tTHEN 

R1 

= R1 

- 8 

2550 

IF 

CURSHAP 

= 2 THEN 

R1 = 

R1 

2575 

IF 

R1 

= 

64 

THEN 

R1 = 

0 


2600 

IF 

R1 

= 

72 

THEN 

R1 = 

8 


2625 

IF 

R1 

= 

-8 

THEN 

R1 = 

56 



IXD% = R1 / 8 

XINC = RM% (IXD%,0) :YINC = RM%(IXD%,1) 
CURSHAP = RM%(IXD%,2) 

R1 = RM%(IXD%,3) 

REM COME HERE OF NO CHANGE 
X = X + XINC:Y = Y + YINC 



GOTO 

GOTO 

8 


2550 

2550 



3275 

3300 

3325 

3350 

3375 

3550 

3575 

3600 

3650 

3675 

3925 

3950 

3975 

4000 

4025 

4050 

4075 

4100 

4125 

4150 




LAST% (IDX,0) ,LAST% (IDX, 


4200 


POKE -16299 - IDX,0 
POKE 230,32 * WPAGE 

WPAGE = WPAGE + 1: IF WPAGE = 3 THEN WPAGE 
ROT= LAST%(IDX,3) 

HCOLOR=0: DRAW LAST%(IDX,2) 

ROT = R1 

LAST%(IDX,3) = R1 
HCOLOR= 3; DRAW CURSHAP 
LAST%(IDX,0) = X;LAST% (IDX, 1) = 

LAST%(IDX,2) = CURSHAP 
RETURN 

DIM RM%(8,4) ,LAST%(2,8) 

INC = 4 

FOR I = 0 TO 7 
FOR J = 0 TO 3 
READ A% 

RM%(I,J) = A% 

IF J = 0 OR J = 1 THEN RM%(I,J) = A% 

NEXT : NEXT -gj 

DATA 1,0,1,0,1,1,2,0,0,1,1,16,-1,1,2,16,-1,0,1,32^ 
-1,2,32,0,-1,1,48,1,-1,2,48 “ 

D$ = CHR$ (4) 


^z\av> us = (JHKS 14; 

4225 PRINT D$"BLOAD SHUTTLESHAPES , A$6000 " 

4250 POKE 232,0: POKE 233,96 

INPUT "CONTROLS? P-PADDLE K-KEYBOARD: 

HGR2 : HGR 

POKE -16304,0: POKE -16302,0 
SCALE= 1 J ROT=I0^^^^^^^ 

WPAGE “ ; 

LAST%®(0r2)W^ CURSHAP: LAST% (1,2) = CURSHAP 

VTM/^ = DMS- in'^n\ . V T M/^ — OIUI9. in 1 \ 


4275 

4300 

4325 

4350 

4375 

4425 

4575 


XINC = RM% (0;0) :YINC = RM%(0,1) 


4600 CURSHAP = 1^: 


4700 

-4950 

4975 

5100 

5125 

5150 

5175 

5200 

5225 




= Y 


46750Y = 20:LAST% (0,*^) = Y:LAST%(1,1) 

= 100:LA5T% (0,0) = X:LAST%(1,0) = X 


GOTO 

TEXT 

END 


125 



5250 

5275 


ZZ =®300 
POKE 

POKE ZZ+4, 202: POKE 
POKE 
POKE 
198 

POKE ZZ+16,l:POKE ZZ+17 , 208 : POKE 


+3,239 


ZZ, 166:POKE ZZ+1,0:POKE ZZ+2 , 160 : POKE 

ZZ+5,208:POKE ZZ+6,5:POKE ZZ+7,173 
ZZ+8,48:POKE ZZ+9 , 192 : POKE ZZ+10 , 166 : POKE ZZ+11, 
ZZ+12,136:POKE ZZ+13 , 208 : POKE ZZ+14 , 245 : POKE ZZ+] 



RETURN 


ZZ+13, 208:POKE 

ZZ+18,239:POKE ZZ+19 


,96 


A 
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SHOOT 'EM 
UP APPLE 

The next task is to arm the shuttle. We'll do 
this by adding a photon blaster to the ship's 
arsenal. Let's break this into stages and see 
what's involved. 

The first stage will be to try to plot the path of 
the photon when the key is pressed. (When the 
firing mechanism is activated.) We'll use the 
"S" key as the "fire" button. Add the following 
lines to your program so far and run it. What do 
you notice about how the blasts appear? Be 
sure to fire and to test turning the ship to make 
sure everything still works. 



1950 S=PEEK(- 16287) 

checks the paddle shot 

1975 IF S>127 THEN GOTO 2375 

shot detected 

2350 IF A$0"S" THEN GOTO 2750 

no shot 

2375 REM SHOT ROUTINE 

2425 S3INC=XINC*3:S4INC=YINC*3 

shot X and y increments 

2450 S1X=X:S2Y=Y 

shot position 

2475 HPLOT S1X.S2Y 

draws the shot 

2750 S1X=S1X+S3INC:S2Y=S2Y+S4INC 

next shot position 

3000 IF S1X>279 OR S1X<0 THEN 

edge of the screen reached 

S3INC=0:S4INC=0:S1 X=0: 
S2Y=0 

3025 IF S2Y>190 OR S2Y<0 THEN 

S3INC=0:S4INC=0:S1X=0:S2Y=0 

3625 HPLOT SI X.S2Y 

draws the shot 

4725 S1X=0:S2Y=0 

no shot to start with 



It seems that our shoot routine has a bit of a 
problem. The shuttle shoots the photon blast 
but the path of the blast flashes on the display 
screen. The problem here is that although the 
path of the blast is being plotted, It is not being 
erased. So the next step is to erase the 
previously drawn photon blast. This shouldn't 
be too difficult since we have already done 
something very similar with the shuttle itself. 
Here are the lines to add to the program to fix 
this problem: 



2525 LAST%(IDX,4)=S1X:LAST%(IDX,5)=S2Y 

saves last shot position 1 


3500 HPLOT LAST%(IDX,4),LAST%(IDX,5) 
3900 LAST%(IDX,4)=S1X;LAS‘r3E,(IDX,5)=S2Y 

erases last shot 1 
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The variable names are getting a little 
confusing unless you know the reasons for 
them. The Apple BASIC language only 
recognizes the first two characters of a variable 
name. 


Type this short program: 

1 S1X=0 

2 S1Y=5 
3PRINTS1X 
4 END 


Run this program and you'll get 5 printed, 
not the 0. The computer thinks that lines 1 and 
2 change the value of the same variable "S1". 
(Type: 

DELETE 1,4 

to make sure that if you added these lines, 
they don't get mixed up in your game code.) 

Because of this problem, variables which 
refer to shots by the ship begin with an S (S for 
Shot, clever, eh?) but they are followed by 
numbers to keep the variables different from 
each other. Following the number (or second 
character of the variable) anything that will 
help us to identify the variable can be added. 
For example; 


SIX 

S2Y 

S3INC 

S4INC 


the X position of the shot 

the y position of the shot 

how far the shot moves in x direction 

how far the shot moves in y direction 



Maybe now you can see that the variables Now let's take a closer look at how the 

aren't quite as crazy as they orignally seemed. shooting routine works. 



Line 4726 
Line 2350 
Line 2375 
Line 2450 
Line 2475 
Line 2525 
Line 2750 
Line 3000, 
3025 

Line 3500 
Line 3900 


We've got one more change to make to 
perfect the shooting routine. Did you notice 
what happens when you shoot another shot 
while the first shot is still on the screen? This is 
because we planned for one shot at a time 
when we added the routines to draw and 
erase the shot. We have to change that 
program so that the second shot can't go off 
until the first one has either hit its target or 
moved off the screen. Add this one line 
change to fix up the program: 


2375 IF SIX > 0 OR S2Y > 0 THEN GOTO 2750 


Now when you run the program you get only 
one shot at a time. 


starts the shot off at 0,0 

determines if the S key has been pressed 

determines the direction in which to move the shot 

says the ship has fired the shot at this pxsint 

plots the shot right away 

remembers the last position of the shot 

determines the next position of the shot 

tells the computer, if the shot has reached the 
edge of the screen, then don't plot it anymore 
erases the last position of the shot 
remembers the last position of the shot 


READY AIM 

In the next few steps our game will really start 
to take shape. The following lines, when added 
to the program, will give the shuttle a target to 
shoot at. We'll do this in a couple of steps, to 
show you how to break the task into small 
sections. 



The first step will just draw the target on the screen. 

4450 L3SHAPE=3:L4SHAPE=4:L5SHAPE=5 sets up names for the 

shopGS 

3800 ROT=0:DRAW L3SHAPE AT 150,185 draws the base 



Run the program and hove the 
shuttle shoot the base. There's a slight 
problem, isn't there? To the shuttle and 
its photons, the enemy base isn't even 
there. They both pass right throughlll 
To fix this, the first thing we'll do is to 
cause the shuttle to crash if it hits the 
enemy base. This is a pretty complex 
task; how do you know when the 
shuttle collides with the enemy base? 
The easiest way is to use our 
knowledge of the shapes and their 
positions on the screen to tell when the 
shuttle crashes into the enemy base. 
Once we krx)w how to do this with the 
shuttle it will be easy to apply the same 
technique to the photon blasts. 
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First of all we must find out if the shuttie is 
close enough for a collision to occur. So, we'ii 
odd the following iines. They will determine if 
the shuttle is being drawn in a place where the 
enemy base is being dispiayed. Add these 
iines and run your program. 







225 GOSUB1525 

1525 REM CHECK FOR COLLiSION OF SHiP 
1550 iF X<150 OR X>202 THEN RETURN 
1575 IF Y>1 77 AND Y<185 THEN GOTO 
1650 

1600 IF X<167 OR X>184 THEN RETURN 
1625 IF Y<166 OR Y>185 THEN RETURN 
1650 X=100:Y=100 
1825 RETURN 


the routine to check if ship hit base 

not ciose enough 
checks more closeiy 

not close enough 
not close enough 
A CRASHIIII! 


We estimated the shape of the enemy base 
to be roughly a square on top of a larger one. 
This aiiowed us to determine easily whether or 
not the shuttle was being drawn inside the 
enemy base. We could hove done this by 
storing ali the points on the enemy base and 
comparing to see if the shuttie was being 
drawn over any one. However, this wouid be a 
very iong program which would have meant 
that the game would be very slow. 
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APPLE SOUND 
EXPLOSION 


The game is really coming alive r>ow! And 
adding the sound of shots and explosbns will 
make it even more realistic. The first sound we'll 
add is an explosion. Rom now on, anytime 
something gets destroyed, either by a shot or 
by collision, the program will call up the routine 
that makes the explosion noise. Here's the 
code to add that to your game. Type in the 
code and run the program to hear what it 
does. 


2400 FOR 1=1 TO 10 :XX%=PEEK(- 16336): NEXT 


The other sound effect is the noise of a shot 
being fired. 


1700 FOR 1=1 TO 20 
1 725 POKE 0,85-I;POKE 1,2:CALL ZZ 
1 750 POKE 0,100+I:POKE 1,2:CALL ZZ 
1775 NEXT 
4175GOSUB5125 
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How about that!! Is your room starting to look 
and sound like a video arcade? Test out some 
of your own sounds. 




TURRETS 

SIGHTED 

Now type in these lines to put the turret (from 
your shape table) onto the enemy base and 
into your game. 



4475 B1X=158:B2Y=177 
4500 B3X=173:B4Y=170 
4525B5X=188:B6Y=177 
3825 IF BIX > 0 THEN DRAW L5SHAPE 
ATB1X,B2Y 

3850 IF B3X > 0 THEN DRAW L5SHAPE 
AT B3X,B4Y 

3875 IF B5X >0 THEN DRAW L5SHAPE 
AT B5X,B6Y 

turret 1 x and y position 
turret 2 x and y position 
turret 3 x and y position 
draws the three turrets 

at the positions we 

just defined 

Now we have a real target to shoot at; in 

shapes on the screen, they didn't check to see 

fact, we hove three. Notice that all three are 

if the shots from the shuttle hit any of them. 

the same shape; we just make the shape 

We'll do that now by checking the first turret. 

appear on the screen in several locations. 

Add the following lines and run the program. 

The above program lines simply drew the 

Try shooting at turret 1, the one on the left. 

175 GOSUB775 

1 

subroutine to see if shot hit turret 

775 IFS1X<158 0RS1X>192 

don't check if shot isn't even close 

THEN RETURN 


800 IF S2Y> 177 THEN RETURN 

shot has gone past turret so don't check 

825 IF BIX = 0 THEN GOTO 975 

bypass turret if it is already destroyed 

850 IF BIX >165 THEN GOTO 975 

shot is pxast the turret 

875 IF S2Y < 1 73 THEN GOTO 975 

shot hasn't reached turret 

900 REM A HIT ON TURRET 1 

shot has hit turret 

925 B1X=0:B2Y=0 

eliminate turret by zeroing position 

950 GOTO 1325 

go make explosion noise 

975 REM NO HIT ON TURRET 1 

the shot missed, better luck next time 

1000 RETURN 


1325 FOR 1 = 1 TO 20 

make some noise 

1350 POKE 0,85-1: POKE 1,2: 


CALLZZ 


1375 POKE 0,100-FI:POKE 1,2: 


CALLZZ 


1400 NEXT 


1475 S1X=0:S2Y=0:S3INC=0:S4INC=0 

the shot is destroyed as well 

1500 RETURN 



Did you notice any problems with this when 
you ran it? Were you able to destroy the 
enemy turret? If you had the value of variable 
INC (line 3975) set at more than 2, you may 
hove had a lot of trouble. Here's why: the shot 
moves three times further than the ship every 
time they are drown (line 2425). If the distance 
between shot drawings is greater than 7 pixels 
(If the ship INC is greater than 2) the shot can 
pass right through the turret. 

We will overcome this obstacle by using the 
halfway point between the last shot and the 
one we just drew, as a checkpoint. For 


example, if INC is 4, the shot is drawn every 12 
pixels and we check every 6 to see whether or 
not the shot hit the turret. (This method isn't 
foolproof: if the value of INC is 6, then the shot 
increment would t>e 18 pixels and we would 
check every 9th pixel. Blouse the turret is only 
7 pixels wide, it is possible that we could still 
miss the turret. To avoid this problem, make 
sure that the INC is always set at 4 or less.) So, 
when we're not checking the halfway point an 
INC of 2 is a problem, but using the halfway 
point checking method, an INC of up to 4 is 
OK. 
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The following changes add the halfway 
checkpoint to the program. Add them to your 
program and try to shoot turret 1 . 


775 XCHECK=S1X-S3INC/2: 
YCHECK=S2Y-S4INC/2 
780 IF (S1X< 158 AND XCHECK 
<158) OR(S1X>192AND 
XCHECK>192) THEN RETURN 
800 IF (S2Y>1 77 AND YCHECK>1 77) 

THEN RETURN 

850 IF(S1X>157 AND S1X<166) 

AND (S2Y<1 78 AND S2Y>1 72) 

THEN B1X=0:B2Y=0:GOTO 1325 
875 IF (XCHECK>157 AND XCHECK 
<166) 

AND (YCHECK<1 78 AND YCHECK 
>172) THEN B1X=0:B2Y=0:GOTO 1325 
DEL 925,950 


finds the halfway point by subtracting 
half the increment from shot position 
both must be out of range then we can skip 
check 


if shot between right and left sides 
and between bottom and top 
then there is a collision 
this does the same check for 
the 

halfway point 

halfway point in range, means collision 
don't need these lines, delete them 


likewise for the y 


Now when we run the program, with an INC 
of 4, we can destroy the turret and hear the 
explosion. 

We rx)w have a pretty good method of 
discovering whether or not the shot hit the first 
turret. We'll add the following lines to check if 
either of the other two were hit. 



1000 IF B3X=0 THEN GOTO 1 1 75 
1025 IF(S1X>172 AND S1X<181) 

AND (S2Y<1 71 AND S2Y>164) 

THEN B3X=0:B4Y=0:GOTO 1325 
1050 IF (XCHECK>172 AND 

XCHECK<1 81 ) AND (YCHECK<1 71 
AND YCHECI0164) THEN B3X=0: 

B4Y=0:GOTO 1325 
1 1 75 REM NO HIT ON TURRET 2 
1220 IF B5X=0 THEN RETURN 

1225 IF (S1X>187 AND S1X<194) AND (S2Y<1 78 AND S2Y>1 72) THEN B5X=0:B6Y=0:GOTO 1325 
1250IF(XCHECK>187AND XCHECK<194) AND (YCHECK<1 78 AND YCHECK>172) 

THEN B5X=0:B6Y=0:GOTO 1325 
1275 RETURN 


The next addition will make the game look a 
little more realistic. When each turret gets 
destroyed, it will disappear from the screen, like 
it's been completely demolished. One method 

of doing this is to erase all the turrets and then 
redraw only those that haven't been 
destroyed. Type this: 

3425 ROT=0:DRAW L5SHAPE AT 158,1 77 

erases first turret ■ 

3450 DRAW L5SHAPE AT 1 73,1 70 


erases second turret 1 

3475 DRAW L5SHAPE AT 188,1 77 


erases third turret 1 


Now when we run the program we can shooting turrets off the base and all, but that's 

shoot the turrets which then disappear with the because it's been pretty much of a target 
sound of an explosbnl practice shoot so far. Wait till you have to 

You've probably done pretty good so far, dodge enemy fire to shoot at the turrets!! 
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TAKE 

COVER 

The next step allows the turrets to slioot bock 
at the shuttle. WeTI start with the turrets 
shooting randomly. This means that we will 
have no way of predicting which of the turrets 
will shoot or when. 


this is the position of the turret's shot 

sets up to remember last position 

of shot on both pages 

sets initial shot Increment to zero 

don't shoot If shot already fired 

gets a random number between 0 and 1 

and calls it L2 

only fires 1/2 the time 

if L2 less than .7 and turret 1 exists 

fires shot from turret 1 

if LZ less than .85 and turret 2 exists 

fires shot from turret 2 

otherwise, if turret 3 

exists, fire shot 

shot moves up at 4 times ship speed 
computes next y positbn of shot 
if shot past top of screen, forget it 

erases the last position of the shot 
remembers the last position of the shot 
plots the current shot from the turret 


4800 SFX=0:SGY=0 
4825 L7\ST%(0,6)=0:LAST%(0,7)=0 
;LAST%(1 ,6)=0:LAST%(1 ,7)=0 
4850 SDINC=0 

2775 IF SFX > 0 THEN GOTO 2950 
2800 LZ = RND (1) 

2825 IF LZ < .5 THEN GOTO 3000 
2850 IF LZ < .7 AND B1X>0 

THEN SFX=160:SGY=170;GOTO 2925 
2875IFLZ<.85ANDB3X>0 

THEN SFX=1 76:SGY=168:GOTO 2925 
2900 IF B5X>0 THEN SFX=187: 

SGY=170 

2925 SDINC=-INC*4 
2950 SGY=SGY+SDINC 
2975 IF SGY<1 THEN SDINC=0:SGY=0: 
SFX=0 

3525 HFIOT LAST%(IDX,6),LAST%(IDX,7) 
3700 LAST%(IDX,6)=SFX:LAST%(IDX,7)=SGY 
3750 HPLOTSFX,SGY 




You can probably guess what we're going to 
do next. Shots were fired, right? Right. We'd 
better see if anything was hit. Did the shuttle 
take a hit? Checking this is a little more 
difficult. 
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Because of the shape of the shuttle, we can't 
compare it to a box like we did with the turrets 
and the base. We're going to need a 
programming trick to determine if the shuttie 
has been hit. First we determine if the location 
where we are going to piot the shot has a part 
of the ship aiready plotted on It. The special 
routines that do this are reaiiy too complex to 
explain here. Like the shape drawing program, 
you don't hove to know exactly how they work 
to use them in games. Here's the routine you 
need, type it in. 



125 GOTO 5425 

300 iF SFX=0 THEN RETURN 

350 iF(X-SFX).(X-SFX)+ 

(Y-SGY)-(Y-SGY)>TFS+PEEK(229) 

THEN RETURN 
XPST=SFX:I=-WIDTH 
XHOFST%=XPST/TFS 
XLOFST%=XF^T-TFS*XHOFST% 
l=l+WiDTH:IF l=>-SDiNC THEN RETURN 
YF>ST=SGY+i 
iF YPST>168 THEN RETURN 
CALL 768,YPST,XLOFST%,XHOFST%,62481 
ADRES=PEEK(38)+PEEK(39)*TFS-FPEEK(229) 
iF PEEK (ADRES)=0 THEN GOTO 475 
HCOLOR=3:HPLOT SFX,SGY 
POKE -16298-WPAGEO 


400 

425 

450 

475 

500 

525 

550 

575 

600 

625 

650 

675 

725 

750 

3725 

4400 

4875 

5425 

5450 

5475 

5500 


pokes routine into memory 
don't check if there is no shot 
checks if shot is within 
checking range 

caicuiates memory iocation 
where shot wiil be 
drawn 


ail is ciear to draw the shot 
piot the shot 

go back to previous page 
drown on 
cancel the shot 


go do the other CRASH! things 
check to see if shot hit ship 


SDiNC=0:SFX=0:SGY=0 
HCOLOR=3 
GOTO 1650 
GOSUB 300 
TFS=256 
WIDTH=1 

A$=”300:20 F5 E6 8A 48 20 F5 E6 8A 48 20 F5 E6 8A 48 20 
BE DE 20 67 DD 20 52 E7 68 A8 68 AA 68 60 50 00 20" 

A$=A$+"N D823G" 

FOR i=1 TO LEN(A$):POKE511+i,ASC(MID$(A$,i,1))+128:NEXT :POKE 72,0:CALL -144 
GOTO 150 


Lines 5425, 5450 and 5475 empioya 
BASIC/machine ianguage subroutine known 
as the Lam technique. ( Luebbert, Wiliiam F., 
"What's Where in the Apple" (Micro ink, 
Chelmsford, Mass.): p. 38, 39.) 
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AND THE 
WINNER IS 

This final addition wiii keep track of the score 
and announce whether the piayer or the 
computer has won the game, if the shuttle 
shoots all three turrets before getting shot three 
times, the piayer wins. If the player gets shot 
three times before getting ail the turrets, the 
computer wins. Sorry player, try again. 



Here's the score keeping code: 
4900 TSCRE=0:TBLW=0 

250 iFTSCRE=3 0RTBLW=3 
THEN GOTO 4975 
1425 TSCRE = TSCRE + 1 
1800 TBLW = TBLW + 1 
5000 HOMEiVTAB 10:FLASH 
5025iFTSCRE=3 THEN 

PRiNT "YOU WiN! I GiVE 
UP!" 

5050 IF TBLW = 3 THEN 

PRINT"! WIN, TRY AGAIN" 
5100 NORMALEND 

Save Appleflight. 


TSCRE counts # of turrets hit: 

TBLW counts # of shuttle hits 

if either counter reaches 3 

then the game is over 

another turret destroyed, add to counter 

shuttle destroyed, add to counter 

sets up to display message 

if all turrets destroyed 

print congratulations message 

if shuttle hit 3 times 

oh well, try again next time 

NORMAL cancels the FLASH command 
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GETTING EVEN 
BETTER 


Now you know all the techniques required to 
make your own arcade style game, in fact more. 
Most games don't need all the techniques we've 
used. For example, we've shown you two methods of 
detecting collisions, one by estimating the figure as 
a box and the other by actually "looking" at the 
screen to see if we were drawing over something. 

The methods and shapes you use can really 
affect the speed of your game. Notice that the 
game seems to slow when a shot from the base 
gets near the shuttle? This is because the shuttle is so 
thin and the shot travels In such large increments 
that we hove to check for a collision at many points 
in between shot positions. How could we solve this 
problem? We could make the shuttle fatter so that 
WIDTH of the shuttle Increased or we could make 
the program check for a collsion only when the shot 
was really close to the shuttle. 

Optimization Tips: 



This process of trying to speed the program up Is 
called "optimization." Through lots of experience, 
programmers hove learned a number of other 
optimizing methods. Here are a few to keep in mind, 
but remember, the time to optimize is AFER you 
have the program working and you understand it 
totally. Then you can add the shortcuts that will 
make your program run faster. 


1 . Include many statements in one line 

2. Avoid GOTO statements 

example: 10 X=0:Y=0:GOSUB 300 

example: 10 IF X = OOR X = 1 THEN Y = 4 

instead of. 10 X = 0 

instead of: 10 IFX = 0GOTO40 

20 X=0 

20 IFX=1GOTO40 

30 GOSUB 300 

30 GOTO 50 


40 Y=4 


50 


3. Remove all REM statements. Only do this once the program works, but watch out for GOTOs and 
GOSUBs that go to these statements. 


4. If a table is going to store numbers that don't have decimals, then always add a % to the table 
name so it will use up less computer memory. (Keep this trick in mind when you are developing your 
game and type it in as you go along to avoid lots of retyping later.) 
example: DIM LAST% (8,2) 

instead of DIM LAST (8,2) 


5. Don't DRAW anything you don't have to. We can use this rule to optimize the Appleflight program 
with the following lines of code. Save and run the program. Do you notice a difference and do any 
new problems crop up? These are the questions you have to answer when optimizing your game. 


4550 C1RASH = 2 

1450 C1RASH = 2 

1675 C1RASH = 2 

3755 IF Cl RASH = 0 THEN GOTO 3900 

3775 Cl RASH = Cl RASH - 1 

3400 IF Cl RASH=0 THEN GOTO 3500 


Cl RASH tells us to draw the turrets on graphic pages 
set in whenever there is a collision 

don't plot turrets unless a crash 
so we replot turrets on both pages 
don't erase turrets unless a crash 


We've already given you all the code you need 
for the game, but you feel free to optimize it further 
and maybe even add some things. You may be 
wondering what use shape four has, the one that 
looks like a bunch of exploded pieces? Why don't 
you try to add this shape to the game when the 
turrets explode? 
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OTHER GAMES 
YOU GAIN! 
A/IAKE 


The Appleflight game is now complete. It is 
just one variation of the many “shoot-em-up" 
spxice games. There are several other types as 
well and now you can make versions of your 
own. Remember to break the games down 
into small, easy-to-solve sections and your 
game will be simple to program. 

If you get stuck, or can't make one piece 
work, you'll probably find that the best 
thing to do is to go back a step and d 
the step you're working on into one or 
two smaller steps, then try doing it 
again. 

There are a lot of different arcade 
games and more and more 
keep coming out every 
day, but the games that 
seem to be the most 
popular fall into three 
categories: 


SPACE GAMES 
A/IAZE GAMES 
BAT&BALL GAMES 


Each type has its own special programming 
requirements but they can all be programmed 
by using the techniques you've learned here. 

You'll find that you can use many parts of 
the Appleflight program when developing 
your own games. The shape table program, for 
example, will be helpful when you want to 
create shapes for your games. You should 
follow the path we took, start small and work 


up. When you make your own game, you may 
find that the first few routines are particularly 
helpful as a starting point. 

The next few pages tell a little bit about what 
characterizes each of these 3 main types of 
game and special considerations and 
programming tips for writing your own games 
of each kind. 
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MAZE 

GAMES 



Maze games are perhaps the most popular 
of the arcade games ori the market today. 
Games like Pac Man and Ms Pac Man are the 
most famous example of this type. However, 
you may not realize that the Donkey Kong 
type of game is really just another maze 
game. 

Maze games are characterized by the fixed 
path that the “man" has to travel. Usually, you 
are trying to avoid other creatures that travel 
the maze as well. 

The maze itself presents the greatest 
challenge when creating a maze type game. 
Here are a few suggestions: 


1 . Try to keep the maze simple. 

2. Do not allow diagonal movement. 

3. Concentrate first on making the character 
travel a fixed path, then add the maze 
shape to coincide with your path. 

4. Get the man moving in the path, only then 
add other characters in the maze. 

5. Draw all your characters so that you won't 
have to use the ROTote command when 
they turn corners. 


That should be enough hints to get you 
started at making your own maze games. 
Hove fun! 


SFi<\CE 

GAMES 

You have now seen and written one type of 
space game. The Appleflight game is the type 
which ailows the ship to roam freely around 
the screen. Other games restrict the 
movement to a side-to-side motion which 
generally makes programming much easier. In 
these games, both collision detection and 
movement are easier to control since the ship 
is always drown with the same y co-ordinate. 
The programming challenge comes from 
controlling the movements of the waves of 
enemy ships which shoot and dive at your ship. 

Keep all shapes more box-like than stick-like, 
this makes collision detection easier. 

If you have a large numt>er of enemy ships, 
use DIM statements to store x, y, old x, old y etc. 

Move only a few enemy ships at a time and 
don't redraw all enemy ships on each move. 
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BAT&BALL 

GAA/IES 

Bat and ball games were the first video 
arcade games to come out. These types of 
games were relatively simple at first, the 
object was to use a bat or paddle to keep a 
ball in an enclosed ared. The game spread 
like wildfire and soon many variations on this 
same theme began to app>ear. On your 
System Master diskette is one such variation, 
"Little Brick Out." In order to ploy this game 
you require game paddles. 

This is a low res game but is still a lot of fun. 
To start ploying, type; 

RUN LIHLE BRICK OUT 
Be sure you have the System Master 
diskette in Drive 1 . 

The major problem to solve when 
writing your own bat and ball games is 
determining the angle the ball 
should be deflected when it strikes 
the wall or bat. This brings to mind 
complicdted mathematics, with 
many angles and formulas; how- 
ever, what all that math is really 
saying is that the ball should be 
deflected at the same angle at 
which it approached the wall. To 
implement this in programming, 
supposing we struck the top 
wall, we would simply 
cod©’ 

999 YINC = -YINC 
(assuming the variable 
YINC is used to move 
the ball in the Y 
direction). 

Likewise, if a side 
wall was struck, we 
would simply reverse 
the sign of the XINC 
variable. (Your teacher 
should be able to 
explain the mathematics 
of why reversing the sign on 
the INC means that the 
angle in equals the angle out.) 

When checking for collisfon with 
the bat don't worry about the thickness of the 
bat. If the ball has passed the baf s 
x-co-ordinote and the ball is between the 
bat's ends, then you have a collision. 


Draw or plot the bat shape from end to end 
rather than from the middle out: 


Don't A 

Do i 


j XI 


X2 


This makes collision checking easier. In the first 
example you have to check X1 —5 to X to X1 
-I- 5, but in the second you only have to check 
X2toX2-M0. 


Width (10) 
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GLOSSARY 


code- 

a ianguage a computer can understand, where 
characters represent data; a program; (verb) to 
program 

collision detection - 

in graphics or games appiications, discovering whether 
one screen drawn image has "coliided" with another, 
can be done by deciding if one image wiii hove to be 
drawn over another or by PEEKing specific screen 
iocations 

co-ordinates - 

describe a position or spot on the screen by teiling 
which coiumn and row it is in (X is generally row and y, 
column) 

graphics - 

not words or text, but pictures or graphs; of drawing, 
diagrams or symboiic curves 

hi res - 

with graphics, good picture quality, drawing with 
individuai pixeis for sharp, clear pictures; high pixei 
density 

ioop- 

section of a program that is designed to perform the 
same routine (set of instructions) over and over for a 
specified number of times 

lo res - 

with graphics, pictures that use biocks of pixels as 
opposed to high resoiution which uses individuai pixeis, 
less well defined graphics; iow pixel density 

machine ianguage - 

a very low level language that the computer can 
understand directly; binary 

mainiine (program)- 

the central controlling part of a program that cails up 
the subroutines 



memoiy - 

page flipping - 

PEEK- 
pixel - 

POKE- 

pseudocode - 
ROTotion - 
subroutine - 
variable - 




space where computer stores information and/or 
instructions - Read Only Memory is a permanent store 
of operating instructions which cannot be changed. 
Random Access Memory is user-programmable and 
changeable 

alternating on the screen, two areas of screen graphics 

memory, known as pages 

BASIC command to examine a memory location 

short tor picture element, each of the tiny lights that 
make up a character or portion of a picture on a 
display screen 

BASIC command to put something into a specific 
memory location 

simplified English version of the logical procedure for 
solving a problem 

in graphics, the turning or revolving of an image around 
a fixed point 

a small prc^ram or routine within a larger one that does 
one specific thing 

something which represents something else, eg. B=12 
- the variable ”B" has a value of or represents the 
number 12 
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